home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH05.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  384 b   |  17 lines
  1. 10  '**********************************
  2. 20  '**        GRAPH05               **
  3. 30  '**********************************
  4. 40  SCREEN 1:KEY OFF:CLS
  5. 50  N=8 : O=5
  6. 60  LINE (0,0)-(0,0)
  7. 70  A=0:B=0:C=0:D=0
  8. 80  IF D > 320 THEN 130
  9. 90  LINE (A,0)-(320,B)
  10. 100  LINE (0,C)-(D,320)
  11. 110  A=A+N:B=B+O:C=B:D=A
  12. 120  GOTO 80
  13. 130  LINE (319,0)-(319,199)
  14. 140  LOCATE 12,10
  15. 150  PRINT"THIS SPACE FOR RENT";
  16. 160  GOTO 160
  17.